home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / GCL.LSP < prev    next >
Text File  |  1992-03-14  |  654b  |  21 lines
  1. ;Global copy layers (pick the objects and specify destination layer)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun C:GCL ()
  7. (setq oer *error* *error* err2)
  8. (setq ss (ssget))
  9. (SETQ UL1(GETSTRING "\nLayer to copy entities to : "))
  10. (setq counter 0)
  11. (prompt "CHANGING layers...")
  12. (while
  13.   (setq e (ssname ss counter))
  14.   (setq l (cdr (assoc 8 (entget e))))
  15.   (setq S (ssget "X" (list (cons 8 l))))
  16. (progn
  17.   (command "CHANGE" s "" "P" "LA" UL1 ""))
  18.   (setq counter (+ counter 1))
  19.   (princ l)(princ ", ") 
  20.   (princ " to Layer ")(princ ul1)
  21.   (princ)))